home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot20.d64 / proc.load'font < prev    next >
Text File  |  2009-01-23  |  416b  |  18 lines
  1. 0010 //
  2. 0020 ╨╥╧├ LOAD'FONT(NAME$) ├╠╧╙┼─
  3. 0030   ╔═╨╧╥╘ PUTCHARACTER
  4. 0040   ╘╥┴╨ 
  5. 0050     ╧╨┼╬ ╞╔╠┼ 79,NAME$,╥┼┴─
  6. 0060     ╞╧╥ BANK:=0 ╘╧ 1 ─╧
  7. 0070       ╞╧╥ CHAR:=0 ╘╧ 255 ─╧
  8. 0080         PUTCHARACTER(BANK,CHAR,╟┼╘$(79,8))
  9. 0090       ┼╬─╞╧╥ CHAR
  10. 0100     ┼╬─╞╧╥ BANK
  11. 0110     ├╠╧╙┼ ╞╔╠┼ 79
  12. 0120   ╚┴╬─╠┼╥ 
  13. 0130     ├╠╧╙┼ ╞╔╠┼ 79
  14. 0140     ╥┼╨╧╥╘ // PASS ERROR OUTSIDE
  15. 0150   ┼╬─╘╥┴╨ 
  16. 0160 ┼╬─╨╥╧├ LOAD'FONT
  17. 0170 //
  18.